home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat46 / amitel099a / amitel.install < prev    next >
Text File  |  1993-10-23  |  3KB  |  140 lines
  1. ;
  2. ; $VER: Installation d'AmiTEL v0.99 (22/10/93)
  3. ;
  4. ;    Installer script pour AmiTEL.
  5. ;
  6.  
  7.     (set UserLevel.old @user-level)
  8.  
  9. ; Initialisation des messages.
  10.  
  11.     (set Language 16)
  12.  
  13.     (set #WrongKickStart "\nAmiTEL ne fonctionne qu'avec un KickStart >= à 2.04.")
  14.     (set #CopyingFonts "Copie de Minitel.font dans FONTS:")
  15.     (set #CopyingReqTools "Copie de ReqTools.library dans LIBS:")
  16.  
  17. ; Message de Bienvenue.
  18.  
  19.     (complete 0)
  20.     (welcome "Bienvenue sur le programme d'installation d'AmiTEL v0.99."
  21.          " Cette installation est réalisée avec le programme"
  22.          " 'Installer' de Commodore pour les ordinateurs Amiga.\n"
  23.     )
  24.  
  25. ; S'assurer que l'on utilise un KickStart >= à 2.04.
  26.  
  27.     (if (< (/ (getversion) 65536) 37)
  28.       (abort #WrongKickStart)
  29.     )
  30.  
  31. ; Copie du fichier exécutable et de la documentation d'AmiTEL.
  32.  
  33.     (set Path.Source
  34.       (tackon
  35.         (askdir
  36.           (prompt "\nSélectionnez le lecteur sur lequel se trouve AmiTEL.\n")
  37.           (help @askdir-help)
  38.           (default (pathonly @icon))
  39.         )
  40.         ""
  41.       )
  42.     )
  43.  
  44.     (set Path.Dest
  45.       (tackon
  46.         (askdir
  47.           (prompt "\nSélectionnez ou créez un répertoire dans lequel vous"
  48.               " voulez installer AmiTEL.\n")
  49.           (help @askdir-help)
  50.           (default "SYS:")
  51.         )
  52.         ""
  53.       )
  54.     )
  55.  
  56.     (copyfiles
  57.       (prompt "\nSélectionnez les fichiers à installer:\n")
  58.       (help @copyfiles-help)
  59.       (source Path.Source)
  60.       (dest   Path.Dest)
  61.       (choices "AmiTEL"
  62.                    "BBTPro")
  63.       (infos)
  64.       (confirm)
  65.     )
  66.  
  67.     (complete 40)
  68.  
  69. ; Copie des fichiers Minitel.font, Minitel16.font et Minitel80.font
  70.  
  71.     (if
  72.       (askbool
  73.         (prompt "\nVoulez vous installer les Fonts pour AmiTEL ?")
  74.         (help @askbool_help)
  75.         (default 1)
  76.       )
  77.       (
  78.         (copyfiles
  79.           (prompt "\n" #CopyingFonts)
  80.           (help @copyfiles-help)
  81.           (source "Fonts")
  82.           (dest   "FONTS:")
  83.           (all)
  84.           (confirm)
  85.         )
  86.       )
  87.     )
  88.  
  89.     (complete 50)
  90.  
  91. ; Copie du fichier AmiTEL.guide.
  92.  
  93.     (if
  94.       (askbool
  95.         (prompt "\nVoulez vous installer la documentation d'AmiTEL ?")
  96.         (help @askbool_help)
  97.         (default 1)
  98.       )
  99.  
  100.       (
  101.         (copyfiles
  102.           (prompt "\nSelectionnez le fichier à installer:\n")
  103.           (help @copyfiles-help)
  104.           (source Path.Source)
  105.           (dest   Path.Dest)
  106.           (choices "AmiTEL.guide")
  107.           (infos)
  108.           (confirm)
  109.         )
  110.       )
  111.     )
  112.  
  113.     (complete 80)
  114.  
  115. ; Copie de la librairie ReqTools.
  116.  
  117.     (message
  118.       "\n"
  119.       "Pour fonctionner, AmiTEL utilise la ReqTools.library.\n"
  120.       "\n"
  121.       "Avant de l'installer, je vais vérifier que vous n'avez "
  122.       "pas une version plus récente de ReqTools.library.\n"
  123.       "Si c'est le cas, je ne l'installerai pas.\n"
  124.     )
  125.  
  126.     (copylib
  127.       (prompt "\n" #CopyingReqTools)
  128.       (help @copylib-help)
  129.       (source "Libs/reqtools.library")
  130.       (dest "LIBS:")
  131.       (confirm)
  132.     )
  133.  
  134.     (complete 100)
  135.  
  136. ; End of Program
  137.  
  138.     (set @default_dest Path.Dest)
  139.     (exit)
  140.